﻿Public Class Guild

    Property WoWArmouryURL As String
    Property BattleGroup As String
    Property MemberCount As Integer
    Property Faction As Enums.Faction
    Property Name As String
    Property Realm As String
    Property Emblem As GuildEmblem
    Property Members As List(Of GuildMember)

End Class

Public Class GuildEmblem

    Property EmblemBackground As Integer
    Property EmblemBorderColor As Integer
    Property EmblemBorderStyle As Integer
    Property EmblemIconColor As Integer
    Property EmblemIconStyle As Integer

    Public Sub New(ByVal iEmblemBackground As Integer, ByVal iEmblemBorderColor As Integer, ByVal iEmblemBorderStyle As Integer, _
                   ByVal iEmblemIconColor As Integer, ByVal iEmblemIconStyle As Integer)

        EmblemBackground = iEmblemBackground
        EmblemBorderColor = iEmblemBorderColor
        EmblemBorderStyle = iEmblemBorderStyle
        EmblemIconColor = iEmblemIconColor
        EmblemIconStyle = iEmblemIconStyle
    End Sub

End Class